'From Pharo1.3 of 16 June 2011 [Latest update: #13307] on 24 October 2011 at 3:53:10 pm'!PolygonMorph subclass: #LineMorph	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Morphic-Basic'!!LineMorph commentStamp: '<historical>' prior: 0!This is really only a shell for creating single-segment straight-line Shapes.!"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!LineMorph class	instanceVariableNames: ''!!LineMorph class methodsFor: 'instance creation' stamp: 'SeanDeNigris 9/17/2010 16:13'!from: startPoint to: endPoint color: lineColor width: lineWidth	^ self vertices: {startPoint. endPoint}			color: Color black borderWidth: lineWidth borderColor: lineColor! !!LineMorph class methodsFor: 'instance creation' stamp: 'lj 10/24/2011 15:53'!new	^ self from: 0@0 to: 50@50 color: Color black width: 2! !